|
|
 |
 |
|
<%if request("criteria")="day" then %>
 |
| Etkinlikler : <%=RegDate(MyDate1,2)%> |
<%
connopen
SQL = "SELECT * FROM EventItems WHERE DateSerial("&year(MyDate1)&","&month(MyDate1)&","&day(MyDate1)&")=evDate"
SET RS = ConnExec(SQL)
if not(rs.eof) then
do while not(rs.eof)%>
| <%= rs("timeStart") & " - " & rs("timeEnd") %> |
" class="ver10blue"><%=rs("itTitle")%> |
<%=StrCrop(rs("location"),25)%> |
<%
rs.movenext()
loop
else %>
| Kayıt bulunamadı |
| tanımlı
etkinlik kaydı bulunamadı |
|
<%end if %>
|
<%end if
if request("recID")<>"" then 'etkinlik detay
ConnOpen
SET RS = ConnExec("SELECT * FROM EventItems WHERE Auth=1 AND itID="&Request("RecID"))
if not(rs.eof) then %>
|
| Etkinlik Künyesi |
| Etkinlik : |
<%=rs("itTitle")%> |
| Tarih : |
<%=regDate(rs("evDate"),2)%>
|
| Saat : |
<%=rs("timeStart") & " - " & rs("timeEnd") %> |
| Yer : |
<%if rs("location")<>"" then response.write replace(rs("location"),VBCRLF,"
")%>
|
| Detayları :
|
<%desc=rs("desc")
if desc<>"" then response.write replace(desc,VBCRLF,"
")%>
|
| |
|
<%if rs("onlineLcw") then %>
<%end if %>
|
<%else %>
| Kayıt bulunamadı |
| tanımlı
etkinlik kaydı bulunamadı |
<%
end if
end if %>
|
|
|
| |
|
|
|
